Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue25/fft/FFT.ZIP/SAMPLE/MAIN.DFM/MAIN.txt

Text File | 1997-04-15 | 5.2 KB | 247 lines

object FormMain: TFormMain
  Left = 89
  Top = 12
  Width = 589
  Height = 544
  Caption = 'Test program for Fast Fourier Transformation'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 581
    Height = 153
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object PaintBoxTop: TPaintBox
      Left = 2
      Top = 2
      Width = 577
      Height = 149
      Align = alClient
      OnPaint = PaintBoxTopPaint
    end
    object Panel5: TPanel
      Left = 424
      Top = 8
      Width = 145
      Height = 49
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Label6: TLabel
        Left = 9
        Top = 8
        Width = 94
        Height = 13
        Caption = 'Input data spectrum'
        Color = clBtnFace
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label7: TLabel
        Left = 6
        Top = 24
        Width = 129
        Height = 13
        Caption = 'Transformed data spectrum'
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 153
    Width = 581
    Height = 226
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object PaintBoxCenter: TPaintBox
      Left = 2
      Top = 2
      Width = 577
      Height = 222
      Align = alClient
      OnPaint = PaintBoxCenterPaint
    end
    object Panel4: TPanel
      Left = 464
      Top = 8
      Width = 105
      Height = 49
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Label4: TLabel
        Left = 9
        Top = 8
        Width = 48
        Height = 13
        Caption = 'Input data'
        Color = clBtnFace
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label5: TLabel
        Left = 6
        Top = 24
        Width = 83
        Height = 13
        Caption = 'Transformed data'
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 379
    Width = 581
    Height = 138
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object RadioGroupInitData: TRadioGroup
      Left = 16
      Top = 8
      Width = 129
      Height = 121
      Caption = 'Function type'
      ItemIndex = 0
      Items.Strings = (
        'First'
        'Second'
        'Third'
        'Fourth')
      TabOrder = 0
      OnClick = RadioGroupInitDataClick
    end
    object GroupBox1: TGroupBox
      Left = 152
      Top = 8
      Width = 217
      Height = 121
      Caption = 'Cut frequencies'
      TabOrder = 1
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 20
        Height = 13
        Caption = 'Low'
      end
      object Label2: TLabel
        Left = 16
        Top = 54
        Width = 22
        Height = 13
        Caption = 'High'
      end
      object Label3: TLabel
        Left = 16
        Top = 84
        Width = 30
        Height = 13
        Caption = 'Noise '
      end
      object TrackBarLow: TTrackBar
        Left = 52
        Top = 20
        Width = 149
        Height = 25
        Max = 100
        Orientation = trHorizontal
        Frequency = 1
        Position = 0
        SelEnd = 0
        SelStart = 0
        TabOrder = 0
        TickMarks = tmBottomRight
        TickStyle = tsNone
        OnChange = TrackBarLowChange
      end
      object TrackBarHigh: TTrackBar
        Left = 52
        Top = 50
        Width = 150
        Height = 27
        Max = 100
        Orientation = trHorizontal
        Frequency = 1
        Position = 0
        SelEnd = 0
        SelStart = 0
        TabOrder = 1
        TickMarks = tmBottomRight
        TickStyle = tsNone
        OnChange = TrackBarHighChange
      end
      object TrackBarNoise: TTrackBar
        Left = 52
        Top = 80
        Width = 149
        Height = 29
        Max = 100
        Orientation = trHorizontal
        Frequency = 1
        Position = 0
        SelEnd = 0
        SelStart = 0
        TabOrder = 2
        TickMarks = tmBottomRight
        TickStyle = tsNone
        OnChange = TrackBarNoiseChange
      end
    end
    object ButtonReset: TButton
      Left = 396
      Top = 104
      Width = 83
      Height = 25
      Caption = 'New Randoms'
      TabOrder = 2
      OnClick = ButtonResetClick
    end
    object ButtonClose: TButton
      Left = 488
      Top = 104
      Width = 75
      Height = 25
      Caption = 'Close'
      TabOrder = 3
      OnClick = ButtonCloseClick
    end
  end
  object FastFourier1: TFastFourier
    Length = 32
    OnGetValue = FastFourier1GetValue
    Left = 528
    Top = 395
  end
end